home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 3 / CD ACTUAL 3.iso / linux / incoming / jstools-.6v3 / jstools- / jstools-tk3.6v3.0 / lib / jfileio.tcl < prev    next >
Encoding:
Text File  |  1995-02-05  |  869 b   |  29 lines
  1. # jfileio.tcl - read and write text to files
  2. # 
  3. # Copyright 1994 by Jay Sekora.  All rights reserved, except 
  4. # that this file may be freely redistributed in whole or in part 
  5. # for non¡profit, noncommercial use.
  6. ######################################################################
  7.  
  8. ######################################################################
  9. # write given text to a file
  10. ######################################################################
  11.  
  12. proc j:fileio:write { filename text } {
  13.   set file [open $filename w]
  14.   puts -nonewline $file $text
  15.   close $file
  16. }
  17.  
  18. ######################################################################
  19. # return contents of file
  20. ######################################################################
  21.  
  22. proc j:fileio:read { filename } {
  23.   set file [open $filename r]
  24.   set result [read $file]
  25.   close $file
  26.   
  27.   return $result
  28. }
  29.